home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / libs / MMULib.lha / MMULib / Lib_Sources / BuildLongTable.asm next >
Encoding:
Assembly Source File  |  1998-10-04  |  3.5 KB  |  118 lines
  1.         opt o+,ow-
  2. ;*************************************************
  3. ;** BuildLongTable                              **
  4. ;** build for demonstrational purposes a        **
  5. ;** MMU table using the long descriptors        **
  6. ;** © 1998 THOR, Version 0.00 23.09.1998        **
  7. ;*************************************************
  8.  
  9.         include inc:exec_lib.asm
  10.         include inc:macros.asm
  11.  
  12.         machine mc68030
  13.  
  14. Start:
  15.         move.l ExecBase,a6
  16.         move.l #64*8+8+8+$f,d0
  17.         moveq #1,d1
  18.         jsr AllocMem(a6)
  19.         tst.l d0
  20.         beq.s .exit
  21.         addq.l #7,d0
  22.         addq.l #8,d0
  23.         and.b #$f0,d0   ;round
  24.  
  25.         move.l d0,a2
  26.         lea $10(a2),a1
  27.         move.l #$7ffffc03,(a2)
  28.         move.l a1,4(a2)
  29.         lea Tables(pc),a0
  30.         for.l #64*2,d1
  31.          move.l (a0)+,(a1)+
  32.         next d1
  33.  
  34.         lea SetURP(pc),a5
  35.         jsr Supervisor(a6)
  36. .exit:
  37.         moveq #0,d0
  38.         rts
  39.  
  40. SetURP:
  41.         move.l a2,-(a7)
  42.         move.l #$0000fc03,-(a7)         ;Limit 0, next level is LONG
  43.         pmove.d (a7),crp
  44.         nop
  45.         pflusha
  46.         addq.l #8,a7
  47.         rte
  48.  
  49. Tables:
  50.         dc.l $8001fc41,$00000000        ;map out the lowest 4K
  51.         dc.l $7ffffc41,$00040000        ;chip memory maps plain
  52.         dc.l $7ffffc41,$00080000
  53.         dc.l $7ffffc41,$000c0000
  54.         dc.l $7ffffc41,$00100000
  55.         dc.l $7ffffc41,$00140000
  56.         dc.l $7ffffc41,$00180000
  57.         dc.l $7ffffc41,$001c0000        ;end of chip memory
  58.         dc.l $7ffffc01,$00200000        ;start of fast memory
  59.         dc.l $7ffffc01,$00240000
  60.         dc.l $7ffffc01,$00280000
  61.         dc.l $7ffffc01,$002c0000
  62.         dc.l $7ffffc01,$00300000
  63.         dc.l $7ffffc01,$00340000
  64.         dc.l $7ffffc01,$00380000
  65.         dc.l $7ffffc01,$003c0000
  66.         dc.l $7ffffc01,$00400000
  67.         dc.l $7ffffc01,$00440000
  68.         dc.l $7ffffc01,$00480000
  69.         dc.l $7ffffc01,$004c0000
  70.         dc.l $7ffffc01,$00500000
  71.         dc.l $7ffffc01,$00540000
  72.         dc.l $7ffffc01,$00580000
  73.         dc.l $7ffffc01,$005c0000
  74.         dc.l $7ffffc01,$00600000
  75.         dc.l $7ffffc01,$00640000
  76.         dc.l $7ffffc01,$00680000
  77.         dc.l $7ffffc01,$006c0000
  78.         dc.l $7ffffc01,$00700000
  79.         dc.l $7ffffc01,$00740000
  80.         dc.l $7ffffc01,$00780000
  81.         dc.l $7ffffc01,$007c0000
  82.         dc.l $7ffffc01,$00800000
  83.         dc.l $7ffffc01,$00840000
  84.         dc.l $7ffffc01,$00880000
  85.         dc.l $7ffffc01,$008c0000
  86.         dc.l $7ffffc01,$00900000
  87.         dc.l $7ffffc01,$00940000
  88.         dc.l $7ffffc01,$00980000
  89.         dc.l $7ffffc01,$009c0000        ;end of fast memory
  90.         dc.l $7ffffc00,$00a00000        ;start of black space
  91.         dc.l $7ffffc00,$00a40000
  92.         dc.l $7ffffc00,$00a80000
  93.         dc.l $7ffffc00,$00ac0000
  94.         dc.l $7ffffc00,$00b00000
  95.         dc.l $7ffffc00,$00b40000
  96.         dc.l $7ffffc00,$00b80000
  97.         dc.l $80f4fc41,$00bc0000        ;CIAs map in here
  98.         dc.l $7ffffc00,$00c00000        ;start of ranger mem
  99.         dc.l $7ffffc00,$00c40000
  100.         dc.l $7ffffc00,$00c80000
  101.         dc.l $7ffffc00,$00cc0000
  102.         dc.l $7ffffc00,$00d00000
  103.         dc.l $7ffffc00,$00d40000
  104.         dc.l $7ffffc00,$00d80000
  105.         dc.l $80fcfc41,$00dc0000        ;custom chips are here
  106.         dc.l $7ffffc00,$00e00000        ;blank space
  107.         dc.l $7ffffc00,$00e40000
  108.         dc.l $007ffc41,$00e80000        ;Zorro-II-Boards
  109.         dc.l $7ffffc00,$00ec0000        ;blank on my machine
  110.         dc.l $7ffffc00,$00f00000        ;diagnostic ROM
  111.         dc.l $7ffffc00,$00f40000
  112.         dc.l $7ffffc01,$00f80000        ;ROM
  113.         dc.l $7ffffc01,$00fc0000        ;ROM
  114.  
  115.  
  116.  
  117.  
  118.